home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / AmiTCP+GerNet.lha / AmiTCP-4.3.StartGN < prev    next >
AmigaDOS Script File  |  1996-11-04  |  2KB  |  77 lines
  1. .key DEBUG/S,PROVIDER/K,SCRIPT/K,BOOTPOPTIONS/F
  2. .bra {
  3. .ket }
  4. ;
  5. ; use profile made by Config AmiTCP by default
  6. .def PROVIDER   "AmiTCP:db/Germanynet.conf"
  7. ; by default the dial script is the same as the provider file
  8. .def SCRIPT     {PROVIDER}
  9. ;
  10. ; AmiTCP/IP DialUp 4.3 startnet script
  11. ;
  12. ; Copyright © 1996 AmiTCP/IP Group,
  13. ;                  NSDi - Network Solutions Development Inc., Finland
  14. ;                  All rights reserved.
  15. ;
  16. ; *NOTE*  YOU SHOULD NOT NEED TO EDIT ANYTHING BELOW. IF YOU NEED TO START
  17. ; *NOTE*  UTILITIES, DO IT IN THE AmiTCP:db/User-Startnet.
  18. ; *NOTE*  YOU CAN STOP THESE UTILITIES IN AmiTCP:db/User-Stopnet.
  19. ;
  20. ; Set the failat level so that the errors can be handled by the script
  21. FailAt 21
  22.  
  23. If NOT Exists {PROVIDER}
  24.   Echo AmiTCP/IP is not configured
  25.   Echo Starting the configuration tool...
  26.   Stack 20000   ; Installer needs this
  27.   Run >nil: <nil: AmiTCP:bin/Installer SCRIPT "AmiTCP:Config AmiTCP" APPNAME AmiTCP/IP MINUSER AVERAGE
  28.   Quit 20
  29. EndIf
  30.  
  31. Version bsdsocket.library >nil:
  32. If NOT Warn 
  33.   Echo AmiTCP/IP is already running
  34.   Echo Exiting...
  35.   Quit 20
  36. EndIf
  37.  
  38. If X EQ "X{DEBUG}"
  39.   Run >nil: <nil: AmiTCP:AmiTCP {DEBUG}
  40. Else
  41.   Run AmiTCP:AmiTCP {DEBUG}
  42. EndIf
  43. WaitForPort AMITCP
  44. If NOT Warn
  45.   ; Log in with the default user name (ENV:LOGNAME)
  46.   AmiTCP:bin/login -f
  47.   ; Configure AmiTCP
  48.   AmiTCP:bin/bootpconfig PROVIDERFILE={PROVIDER} DIALSCRIPT={SCRIPT} {DEBUG} {BOOTPOPTIONS}
  49.   If NOT Warn
  50.     ;
  51.     ; Mount TCP:
  52.     ;
  53.     Assign TCP: Exists >NIL:
  54.     IF Warn
  55.       Mount TCP: from AmiTCP:devs/Inet-Mountlist
  56.     EndIf
  57.     ;
  58.     ; Start utilities in AmiTCP:db/User-Startnet
  59.     ;
  60.     If Exists AmiTCP:db/User-Startnet
  61.       Execute AmiTCP:db/User-Startnet
  62.     EndIf
  63.     ;
  64.     ; Successfull end
  65.     ;
  66.     Echo AmiTCP/IP DialUp 4.3 is now on-line. Your host name is $HOSTNAME.
  67.   Else
  68.     Echo Interface {IFACE} configuration failed!
  69.     Echo Stopping AmiTCP
  70.     AmiTCP:bin/stopnet FLUSH NOUSER
  71.   EndIf
  72. Else
  73.   Echo AmiTCP/IP DialUp couldn't be started!
  74. EndIf
  75.  
  76. ; EOF
  77.